|
|  Russite Double FreeCell
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Double FreeCell"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  2
  WIDTH  10 * CW
  HEIGHT  2 * CH + 9 * COH + 12 * COH

  ZeroToWin 104 - CARDSIN$2

| Foundations

  FOR stack = 6 TO 9
    FOUNDATION
      X stack * CW 
      Y 0
      ID 2
      Deal 1,1
      DealCard x1
      MAX 26
      FLAGS RotateJoin
    END
  END

| Tableau

  FOR stack = 0 TO 9
    STACK
      X stack * CW
      Y CH
      FIRST 13
      DEAL 10,1
      DragOffset -1
      DRAGUPTO 1 + EMPTY$3
      FLAGS ClickFly Join__DC DeepCheck Drag__DC
      ID 1
    END
  END

| Cells

  FOR stack = 0 TO 5
    STACK
      X stack * CW
      Y 0
      FIRST 1, 13
      MAX 1 
      FLAGS ClickFly PaintLast
      ID 3
    END
  END

END
